*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
************************ DRÄGER AND NGHIEM (2025) ***********************
*INFLATION LITERACY, INFLAION EXPECTATIONS, AND TRUST IN THE CENTRAL BANK: 
*                           A SURVEY EXPERIMENT 
****************** THE REVIEW OF ECONOMICS AND STATISTICS ***************
*********************** (REPLICATION FILES) *****************************
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

***********************   JANUARY 2025  *******************************

***** Note: Read "README.txt for details about the code and data ********

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Set STATA
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

*** Clear all ***
clear all
version 18

******************

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
*** Generate tables and figures in the Online Appendix

*A.4 Heterogeneity
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

	use "Inflation_literacy_Jan2025_final.dta" , clear


*A.4 Heterogeneity

*Figure A5: Heterogeneous Literacy Treatment Effects on the Inflation Literacy Score

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	* Wave 1
	
	foreach y of local target {
	qui: reg literacy_grade_inf basic_treatment##`y'  `controls' if wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_literacy_`y'.pdf, as(pdf) replace
	}	


	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"

	* Wave 2
	
	foreach y of local target {
	qui: reg literacy_grade_inf basic_treatment##`y'  `controls' if wave ==2, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w2_literacy_`y'.pdf, as(pdf) replace
	}	
	
*Figure A6: Heterogeneous Literacy Treatment Effects on Perceived Inflation

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Extensive margin
	
	foreach y of local target {
	qui: probit inf_perc_point_ans basic_treatment##`y'  `controls' if wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_percans_`y'.pdf, as(pdf) replace
	}	

estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Intensive margin
	
	foreach y of local target {
	qui: rreg inf_perc_point basic_treatment##`y'  `controls' if wave ==1 & sample_robust_w1_298 == 1
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_percpoint_`y'.pdf, as(pdf) replace
	}	

	
*Figure A7: Heterogeneous Literacy Treatment Effects on Expected Inflation One Year Ahead

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Extensive margin
	
	foreach y of local target {
	qui: probit inf_exp1y_point_ans basic_treatment##`y'  `controls' if wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_1yans_`y'.pdf, as(pdf) replace
	}	

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Intensive margin
	
	foreach y of local target {
	qui: rreg inf_exp1y_point basic_treatment##`y'  `controls' if wave ==1 & sample_robust_w1_298 == 1
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_1ypoint_`y'.pdf, as(pdf) replace
	}	

*Figure A8: Heterogeneous Literacy Treatment Effects on Expected Inflation Three Years Ahead

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Extensive margin
	
	foreach y of local target {
	qui: probit inf_exp3y_point_ans basic_treatment##`y'  `controls' if wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_3yans_`y'.pdf, as(pdf) replace
	}	

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Intensive margin
	
	foreach y of local target {
	qui: rreg inf_exp3y_point basic_treatment##`y'  `controls' if wave ==1 & sample_robust_w1_298 == 1
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_3ypoint_`y'.pdf, as(pdf) replace
	}	
	
*Figure A9: Heterogeneous Literacy Treatment Effects on Central Bank Trust

*trust in the ECB

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"

	
	foreach y of local target {
	qui: reg trust_ecb basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_trustecb_`y'.pdf, as(pdf) replace
	}	
	
	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group"

	local target "East_Germany"

	*Wave 1
	
	foreach y of local target {
	qui: reg trust_ecb basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_trustecb_`y'.pdf, as(pdf) replace
	}	

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"

	*Wave 2
	
	foreach y of local target {
	qui: reg trust_ecb basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==2, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w2_trustecb_`y'.pdf, as(pdf) replace
	}		
	
	
*Trust in the Bundesbank
	
	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	*Wave 1
	
	foreach y of local target {
	qui: reg trust_bundesbank basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_trustbuba_`y'.pdf, as(pdf) replace
	}	
	
	
	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group"

	local target "East_Germany"
	
	*Wave 2
	
	foreach y of local target {
	qui: reg trust_bundesbank basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==1, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w1_trustbuba_`y'.pdf, as(pdf) replace
	}	
	

	estimate clear
	local controls	"i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"

	local target "male college East_Germany i.age_group news_inf_att2 news_ECB_att3"
	
	foreach y of local target {
	qui: reg trust_bundesbank basic_treatment##`y'  `controls' if further_treatment == 0 & wave ==2, robust
	qui: margins `y' , dydx(basic_treatment)
	marginsplot, level(90) ytitle("") xtitle("")  graphregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) plotregion(fcolor(white) ifcolor(white) lcolor(white) ilcolor(white)) title("") 
	graph export w2_trustbuba_`y'.pdf, as(pdf) replace
	}
	
********************************************************************************
********************************************************************************

*Before running Tables A16–A25, ensure that Table 4 in the 'Main_Tables.do' file is executed first. This step generates the Huber weights required for columns 1 through 4.


*Table A16: Interaction Effects of Literacy and Quantitative Treatments: Female Respondents

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if male== 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if male== 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if male== 0 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA16.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Female Respondents) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A17: Interaction Effects of Literacy and Quantitative Treatments: Male respondents

estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if male== 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if male== 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if male== 1 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA17.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Male respondents) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A18: Interaction Effects of Literacy and Quantitative Treatments: Old respondents (Age ≥ 50)

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y']  if age > 49 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y']  if age > 49 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if age > 49 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA18.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Old respondents) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A19: Interaction Effects of Literacy and Quantitative Treatments: Young respondents (Age < 50)

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if age < 50 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if age < 50& wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if age < 50 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA19.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Young respondents) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A20: Interaction Effects of Literacy and Quantitative Treatments: Low education (No College Degree)

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if college == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if college == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if college == 0 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	esttab using "TableA20.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Low education) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A21: Interaction Effects of Literacy and Quantitative Treatments: High education (College Degree)
	
	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if college == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if college == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if college == 1 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA21.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: High education) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))


*Table A22: Interaction Effects of Literacy and Quantitative Treatments: Less Attention to Inflation News

estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if news_inf_att2 == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if news_inf_att2 == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if news_inf_att2 == 0 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA22.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Less Attention to Inflation News) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A23: Interaction Effects of Literacy and Quantitative Treatments: More Attention to Inflation News

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if news_inf_att2 == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if news_inf_att2 == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if news_inf_att2 == 1 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA23.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: More Attention to Inflation News) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
	
*Table A24: Interaction Effects of Literacy and Quantitative Treatments: Less Attention to Monetary Policy News

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if news_ECB_att3 == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	

	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if news_ECB_att3 == 0 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if news_ECB_att3 == 0 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	
	esttab using "TableA24.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: Less Attention to Monetary Policy News) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))
	
*Table A25: Interaction Effects of Literacy and Quantitative Treatments: More Attention to Monetary Policy News

	estimate clear
	local controls	" i.age_group college male i.inc_group2 i.employment_group renter hhsize_group East_Germany"
	local target "inf_exp1y inf_exp3y"
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_prob inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_prob_`y'] if news_ECB_att3 == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	foreach y of local target {
	gen inf_prior = `y'_point
	
	qui: reg `y'_var inf_prior i.further_treatment##i.basic_treatment  `controls' [aweight= hw_var_`y'] if news_ECB_att3 == 1 & wave== 1 & sample_robust_w1_298 == 1
	qui: estpost  
	eststo
	drop inf_prior
	}
	
	local target1 "trust_ecb trust_bundesbank"
	
	foreach y of local target1 {
	gen inf_prior = inf_exp3y_point	
		
	qui: reg `y' inf_prior i.further_treatment##i.basic_treatment `controls' if news_ECB_att3 == 1 & wave == 1 & sample_robust_w1_298 == 1, robust
	qui: estpost  
	eststo
	drop inf_prior
	}

	esttab using "TableA25.tex", replace style(tex)    b(a2)  numbers nodepvars ///
	 star(* 0.10 ** 0.05 *** 0.01) noconstant booktabs not se(2)	 label ///
	 title(Interaction Effects of Literacy and Quantitative Treatments: More Attention to Monetary Policy News) ///
	stats(r2 N, labels("\text{R$^2$}" "\text{N observations}") fmt(3 0 0))

********************************************************************************
********************************************************************************